|
200
|
Disables the control
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
Series.Add('<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South America' +
'(433),<img>6</img>Australia/Oceania(42)',Nil);
Enabled := False;
Legend.Visible := True;
EndUpdate();
end
|
|
199
|
Show icons
with AxGraph1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
AutoFit := True;
Series.Add('<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South America' +
'(433),<img>6</img>Australia/Oceania(42)',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
198
|
Displays the control's version
with AxGraph1 do
begin
OutputDebugString( Version );
end
|
|
197
|
Changes the control's border (EBN)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Appearance := EXGRAPHLib.AppearanceEnum($1000000);
Series.Add('Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
196
|
Changes the control's border
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
Appearance := EXGRAPHLib.AppearanceEnum.Flat;
Series.Add('Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
195
|
Display the logo on the control's background
with AxGraph1 do
begin
BeginUpdate();
(GetOcx() as EXGRAPHLib.Graph).Picture := (AxGraph1.ExecuteTemplate('loadpicture(`c:\exontrol\images\card.png`)') as Object);
PictureDisplay := EXGRAPHLib.PictureDisplayEnum.UpperRight;
AutoFit := True;
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
194
|
Changes the control's font
with AxGraph1 do
begin
BeginUpdate();
with Font do
begin
Name := 'Tahoma';
Size := 12;
end;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,1390,331,276,225,213',Nil) do
begin
Type := 'Pie';
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + (percent format ``) + `%`';
end;
Legend.Visible := True;
EndUpdate();
end
|
|
193
|
Shows the value-scroll (vertical scroll bar for area-compatible chart types)
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 8;
set_Misc(EXGRAPHLib.MiscEnum.exAllowValueScroll,TObject(1.5));
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv';
with Series.Add(Nil,Nil) do
begin
Name := 'msft';
Data := 'Open,High,Low,Close';
Type := 'candle';
end;
EndUpdate();
end
|
|
192
|
No values are shown
with AxGraph1 do
begin
BeginUpdate();
set_Misc(EXGRAPHLib.MiscEnum.exShowValueIf,TObject(0));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,1390,331,276,225,213',Nil) do
begin
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + value';
end;
EndUpdate();
end
|
|
191
|
No labels on category-axis are shown
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 15;
set_Misc(EXGRAPHLib.MiscEnum.exShowLabelsIf,TObject(0));
with CategoryAxis do
begin
Categories := 'Date';
Format := 'value mid 9 left 2';
end;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv';
with Series.Add(Nil,Nil) do
begin
Name := 'msft';
Data := 'Open,High,Low,Close';
Type := 'candle';
end;
EndUpdate();
end
|
|
190
|
No category grid lins are shown
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 8;
set_Misc(EXGRAPHLib.MiscEnum.exShowGridLinesIf,TObject(0));
CategoryAxis.MajorGridLines.Color := 'lightgray';
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv';
with Series.Add(Nil,Nil) do
begin
Name := 'msft';
Data := 'Open,High,Low,Close';
Type := 'candle';
end;
EndUpdate();
end
|
|
189
|
No category ticks are shown
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 8;
set_Misc(EXGRAPHLib.MiscEnum.exShowTicksIf,TObject(0));
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv';
with Series.Add(Nil,Nil) do
begin
Name := 'msft';
Data := 'Open,High,Low,Close';
Type := 'candle';
end;
EndUpdate();
end
|
|
188
|
Defines the lower and upper margins of the valueSize property (CTRL + Middle button and drag to resize the values)
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 8;
set_Misc(EXGRAPHLib.MiscEnum.exValueSizeRange,'1,12');
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv';
with Series.Add(Nil,Nil) do
begin
Name := 'msft';
Data := 'Open,High,Low,Close';
Type := 'candle';
end;
EndUpdate();
end
|
|
187
|
Even though I set the AutoFit property to False, the control still gets resized when I click CTRL + Middle button
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 8;
set_Misc(EXGRAPHLib.MiscEnum.exValueSizeRange,'0,8');
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,';
MajorGridLines.Color := 'lightgray';
end;
Series.Add('1410,1390,331,276,225,213',Nil);
EndUpdate();
end
|
|
186
|
Defines the angle (in degrees) the value-line is rotated by, when the values goes up(positive) or down(negative)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exValueLineUpAngle,TObject(0));
set_Misc(EXGRAPHLib.MiscEnum.exValueLineDownAngle,TObject(90));
with CategoryAxis do
begin
Categories := 'Green,Black,Red,Lime,Orange,Red';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,331,-1390,-276,1225,213',Nil) do
begin
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + (value format ``)';
Type := 'line';
end;
EndUpdate();
end
|
|
185
|
Defines the additional angle (in degrees) the value-line is rotated by
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exValueLineAddAngle,TObject(0));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,1390,331,276,225,213',Nil) do
begin
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + (percent format ``) + `%`';
end;
EndUpdate();
end
|
|
184
|
Defines the distance to extend the value-line by
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exValueLineExt,TObject(12));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,1390,331,276,225,213',Nil) do
begin
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + value';
end;
EndUpdate();
end
|
|
183
|
Defines the distance from the edge of the outer circle where the values are displayed
with AxGraph1 do
begin
BeginUpdate();
set_Misc(EXGRAPHLib.MiscEnum.exValueDistOuterCircular,TObject(0));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,1390,331,276,225,213',Nil) do
begin
Type := 'Pie';
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + (percent format ``) + `%`';
end;
ValuePoint := ',,,,,,,red,black,2';
EndUpdate();
end
|
|
182
|
Defines the distance from the edge of the inner circle where the values are displayed
with AxGraph1 do
begin
BeginUpdate();
set_Misc(EXGRAPHLib.MiscEnum.exValueDistInnerCircular,TObject(8));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,1390,331,276,225,213',Nil) do
begin
Type := 'Pie';
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + (percent format ``) + `%`';
end;
EndUpdate();
end
|
|
181
|
Defines the padding between rings of the "pie" chart-type
with AxGraph1 do
begin
BeginUpdate();
set_Misc(EXGRAPHLib.MiscEnum.exPaddingInsidePie,TObject(12));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,1390,331,276,225,213',Nil) do
begin
Type := 'Pie';
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + (percent format ``) + `%`';
end;
with Series.Add('141,139,331,276,225,213',Nil) do
begin
Type := 'Pie';
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + (percent format ``) + `%`';
end;
EndUpdate();
end
|
|
180
|
Requests for a new layout once the serie's visible property is changed
with AxGraph1 do
begin
BeginUpdate();
set_Misc(EXGRAPHLib.MiscEnum.exNewLayoutOnVisibleChange,TObject(False));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
MajorGridLines.Color := 'lightgray';
end;
with Series.Add('1410,1390,331,276,225,213',Nil) do
begin
Type := 'Pie';
ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
ValueFormat := '`<c>` + category + `<br><c>` + (percent format ``) + `%`';
end;
Legend.Visible := True;
EndUpdate();
end
|
|
179
|
Prevents rotating the labels
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exRadialRotateLabels,TObject(False));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
MajorGridLines.Color := 'lightgray';
end;
Series.Add('1410,1390,331,276,225,213',Nil).Type := 'radarColumn';
SeriesColors := 'blue';
EndUpdate();
end
|
|
178
|
Defines the angle (in degrees) to start the circular-compatible charts (radial or pie)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exCircularStartAngle,TObject(0));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
MajorGridLines.Color := 'lightgray';
end;
Series.Add('1410,1390,331,276,225,213',Nil).Type := 'radarColumn';
SeriesColors := 'blue';
EndUpdate();
end
|
|
177
|
Defines polygonal instead of circular
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exRadarPolygonal,TObject(True));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
MajorGridLines.Color := 'lightgray';
end;
Series.Add('1410,1390,331,276,225,213',Nil).Type := 'radarColumn';
SeriesColors := 'blue';
EndUpdate();
end
|
|
176
|
Defines the distance (proportionally with the valueSize property) between the first, next and last value of the same category and its border
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exMarginValueRatio,TObject(0.5));
set_Misc(EXGRAPHLib.MiscEnum.exPaddingValueRatio,TObject(0.5));
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
Series.Add('9900,3300,980,190,90,8',Nil);
EndUpdate();
end
|
|
175
|
Ensures that the marginal labels of the value-axis ensure fit the axis's client-rectangle
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exValueAxisFitLabel,TObject(True));
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
174
|
Prevents updating the margins/minimum/maximum of the value-axis when the user scrolls the data
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 6;
set_Misc(EXGRAPHLib.MiscEnum.exUpdateRangeOnScroll,TObject(0));
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv';
with Series.Add(Nil,Nil) do
begin
Data := 'Volume';
Type := 'candle';
end;
EndUpdate();
end
|
|
173
|
Defines the padding for labels and title of the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exValueAxisPad,TObject(16));
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
172
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exValueAxisSize,TObject(16));
ValueAxis.OffsetLabel := '16,16';
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
171
|
Defines the padding for labels and title of the category-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exCategoryAxisPad,TObject(16));
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
170
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exCategoryAxisSize,TObject(16));
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
OffsetLabel := '0,-16';
end;
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
169
|
Defines the minimum/maximum portion (as a proportion of major unit, as a numeric-value between 0 and 1) to extend the axis before the first/after the last value of the serie (minimum, maximum value)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.extVisibleBeforeAxis,TObject(1));
set_Misc(EXGRAPHLib.MiscEnum.extVisibleAfterAxis,TObject(1));
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
168
|
Defines the number of digits to appear after the decimal point (as it is)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exDigits,TObject(-1));
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231',Nil).ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
SeriesColors := 'blue';
EndUpdate();
end
|
|
167
|
Defines the number of digits to appear after the decimal point
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exDigits,TObject(3));
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231',Nil).ShowValue := Integer(EXGRAPHLib.ShowValueEnum.exValue) Or Integer(EXGRAPHLib.ShowValueEnum.exLine) Or Integer(EXGRAPHLib.ShowValueEnum.exPoint);
SeriesColors := 'blue';
EndUpdate();
end
|
|
166
|
Defines the inferior and superior limits of the number of major-unit intervals an axis can display
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exRangeMajorUnits,'2');
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
165
|
Defines the base major-units alternatives (separated by comma) the control uses to calculate the major-unit for the axes
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Misc(EXGRAPHLib.MiscEnum.exBaseMajorUnits,'5');
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil';
Series.Add('1410,1390,331,276,225,213',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
164
|
Customizes the tooltips to show on category-axis, when the crosshair intersects the category-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxis do
begin
Format := 'value + `°`';
CursorFormat := '``';
end;
CategoryAxis.CursorFormat := '`<b><fgcolor F0F0F0> ` + value + ` `';
with Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain') do
begin
Type := 'RangeColumn';
CursorFormat := '%V0 +`° - ` + %V1 + `°`';
end;
SeriesColors := 'green';
with Cursor do
begin
Visible := True;
SerieTooltipBackColor := 'black';
SerieTooltipForeColor := 'rgb(254,254,254)';
TooltipPad := TObject(4);
ShowCursorValueLine := False;
end;
EndUpdate();
end
|
|
163
|
Defines the configuration options to show the grid lines and labels between for the overview panel
with AxGraph1 do
begin
BeginUpdate();
with ValueAxis do
begin
Format := 'value / 1000000';
MajorUnit := TObject(50000000);
end;
with CategoryAxis.OverviewGridLines do
begin
Format := '`<fgcolor red><b>` + (value left 4)';
Color := 'red';
Style := 1;
Width := 2;
end;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv';
SeriesColors := 'blue';
Series.Add('Volume',Nil);
Overview.Visible := True;
EndUpdate();
end
|
|
162
|
Add additional grid-lines for categories
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
MajorGridLines.Color := 'lightgray';
with ChartGridLines do
begin
Format := 'value = `Pakistan`';
Align := EXGRAPHLib.DrawTextFormatEnum.exTextCalcRect;
Width := 2;
Color := 'black';
Skip := 1;
end;
end;
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'lime';
EndUpdate();
end
|
|
161
|
Add grid-lines for categories
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
MajorGridLines.Color := 'lightgray';
end;
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'lime';
EndUpdate();
end
|
|
160
|
Shifts horizontally or vertically the labels relative to their original positions
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 48;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
OffsetLabel := '0,-22';
Tfi := '<fgcolor red> bold';
end;
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'lime';
EndUpdate();
end
|
|
159
|
Combines/Merges categories sharing consecutive names according to the Format property
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
CategoryAxis.Visible := True;
with CategoryAxes.Add('Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter',Nil) do
begin
Format := 'value';
Split := True;
MajorGridLines.Color := 'black';
end;
ValueAxis.Format := 'value + `°`';
Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain').Type := 'RangeColumn';
SeriesColors := 'lime';
EndUpdate();
end
|
|
158
|
Combines/Merges categories sharing consecutive names according to the Format property
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv';
with CategoryAxis do
begin
Categories := 'Date';
Format := 'dateS(value left 7) format `MMM`';
Split := True;
MajorGridLines.Color := 'lightgray';
end;
with Series.Add(Nil,Nil) do
begin
Name := 'msft';
Data := 'Open,High,Low,Close';
Type := 'candle';
end;
EndUpdate();
end
|
|
157
|
Defines the category-axis's background color
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
CategoryAxis.Visible := True;
with CategoryAxes.Add('Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter',Nil) do
begin
Format := 'value';
Split := True;
Tfi := 'bold';
Color := TObject(14474460);
end;
ValueAxis.Format := 'value + `°`';
Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain').Type := 'RangeColumn';
Series.Add('Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), Dec' +
'(-3 3)','Romania').Type := 'RangeColumn';
with Legend do
begin
Visible := True;
Dock := EXGRAPHLib.PanelDockEnum.exLeft;
end;
EndUpdate();
end
|
|
156
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Format := 'value + `°`';
with CategoryAxis.MajorTicks do
begin
Color := 'red';
Width := 4;
Style := 0;
Skip := 3;
Step := 2;
end;
Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain').Type := 'RangeColumn';
SeriesColors := 'green';
EndUpdate();
end
|
|
155
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Format := 'value + `°`';
with CategoryAxis.MajorGridLines do
begin
Color := 'red';
Width := 4;
Style := 0;
Skip := 3;
Step := 2;
end;
Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain').Type := 'RangeColumn';
SeriesColors := 'green';
EndUpdate();
end
|
|
154
|
Defines the color, size and style to display the line of the category-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Format := 'value + `°`';
with CategoryAxis.AxisLine do
begin
Color := 'red';
Width := 2;
Style := 0;
end;
Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain').Type := 'RangeColumn';
SeriesColors := 'green';
EndUpdate();
end
|
|
153
|
Specifies the rotation angle (in degrees) for the title and labels of the category-axis, in 'labels,title' format
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Format := 'value + `°`';
CategoryAxis.Angle := '-90';
Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain').Type := 'RangeColumn';
SeriesColors := 'green';
EndUpdate();
end
|
|
152
|
Defines the title of the category-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Format := 'value + `°`';
CategoryAxis.Title := '<b>Range-Temperature';
Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain').Type := 'RangeColumn';
SeriesColors := 'green';
EndUpdate();
end
|
|
151
|
Changes the font attributes to apply on the title and labels of the category-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
Tfi := '<fgcolor red> Tahoma 7 bold';
end;
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
150
|
Defines the direction of the category axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
Reverse := True;
end;
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
149
|
Aligns the category-axis to bottom/right or top/left side of the view
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
Align := EXGRAPHLib.AlignEnum.exAlignLeft;
end;
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
148
|
Hides the category axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
Visible := False;
end;
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
147
|
Customizes the labels to show on category axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with CategoryAxis do
begin
Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
Format := '(index < 2 ? `<b>` : `<fgcolor gray>`) + value';
end;
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
146
|
Defines the categories (method 2)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
Series.Add('China(1410),India(1390),United States(331),Indonesia(276),Pakistan(225),Brazil(213),Nigeria(211),Bangladesh(166),Russia(145),Mex' +
'ico(130)',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
145
|
Defines the categories (method 1)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
CategoryAxis.Categories := 'China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico';
Series.Add('1410,1390,331,276,225,213,211,166,145,130',Nil);
SeriesColors := 'blue';
EndUpdate();
end
|
|
144
|
Adds multiple category-axes
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
CategoryAxis.MajorGridLines.Color := 'lightgray';
with CategoryAxes.Add('Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter',Nil) do
begin
Format := 'value';
Split := True;
Tfi := 'bold';
MajorGridLines.Color := 'black';
end;
ValueAxis.Format := 'value + `°`';
Series.Add('Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), ' +
'Dec(6 15)','Spain').Type := 'RangeColumn';
Series.Add('Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), Dec' +
'(-3 3)','Romania').Type := 'RangeColumn';
with Legend do
begin
Visible := True;
Dock := EXGRAPHLib.PanelDockEnum.exLeft;
end;
EndUpdate();
end
|
|
143
|
Redefines the major-unit of the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.MajorUnit := TObject(1000);
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
142
|
Redefines the margins/limits of the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxis do
begin
Min := TObject(-100);
Max := TObject(6000);
end;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
141
|
Defines the start/end position of the value-axis (relative to full axis)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxes do
begin
Add('p').End := TObject(0.75);
with Add('a') do
begin
End := TObject(0.25);
Visible := False;
ColorChart := TObject(16119285);
Reverse := True;
MajorGridLines.Width := 0;
end;
end;
with CategoryAxis do
begin
Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
MajorGridLines.Color := 'lightgray';
end;
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Axis := 'p';
Type := 'Line';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
with Add('4458,3037,1018,2470,1784,1018,856',Nil) do
begin
Name := 'Area';
Axis := 'a';
end;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
140
|
Customizes the tooltips to show on value-axis, when the crosshair hovers the chart
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxis do
begin
Format := 'value format `0`';
CursorFormat := 'value format `0`';
end;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
Cursor.Visible := True;
EndUpdate();
end
|
|
139
|
Hides the tooltip that's shown over the value-axis, while cursor hovers the serie
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.CursorFormat := '``';
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
Cursor.Visible := True;
EndUpdate();
end
|
|
138
|
Shifts horizontally or vertically the labels relative to their original positions
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.OffsetLabel := '4,8';
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
137
|
Defines the color to apply on the chart's background right to the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.ColorChart := 'red';
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
136
|
Changes the value-axis's background color
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Color := 'red';
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
135
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxis.MajorGridLines do
begin
Color := 'red';
Width := 4;
Style := 0;
Skip := 3;
Step := 2;
end;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
134
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxis.MajorTicks do
begin
Color := 'red';
Width := 4;
Style := 0;
Skip := 3;
Step := 2;
end;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
133
|
Defines the color, size and style to display the line of the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxis.AxisLine do
begin
Color := 'red';
Width := 2;
Style := 0;
end;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
132
|
Converts the serie's values to [0,1] range, as percentages (the values area always numbers between 0 and 1)
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxis do
begin
AsPercent := True;
Format := 'value * 100 + `%`';
end;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
131
|
Defines the rotation angle (in degrees) for the title and labels of the axis, in 'labels,title' format
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxis do
begin
Angle := '-90,-90';
Title := '<b>mil';
Format := 'value ? value format `0` : ``';
end;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
130
|
Defines the title of the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Title := '<b>mil';
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
129
|
Specifies the font attributes to apply on the title and labels of the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Tfi := '<fgcolor red> Tahoma 10 bold';
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
128
|
Defines the direction of the value axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Reverse := True;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
127
|
Aligns the value-axis to bottom/right or top/left side of the view
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Align := EXGRAPHLib.AlignEnum.exAlignRight;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
126
|
Customizes the labels of the value axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Format := 'value ? `<c><b>` + (value format `0`) + `</b><br><c><fgcolor lightgray>mil` : ``';
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
125
|
Customizes the labels of the value axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Format := 'value ? (value format `0`) + ` mil` : ``';
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
124
|
Hides the value-axis
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
ValueAxis.Visible := False;
CategoryAxis.Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
end;
EndUpdate();
end
|
|
123
|
Changes the position of value-axis (click to change the value-axis's position)
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
procedure TWinForm1.AxGraph1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxGraph1 do
begin
ValueAxes.Item['a'].Position := 0;
end
end;
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxes do
begin
Add('p');
Add('a').Color := 'teal';
end;
with CategoryAxis do
begin
Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
MajorGridLines.Color := 'lightgray';
end;
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Axis := 'p';
Type := 'Line';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
with Add('4458,3037,1018,2470,1784,1018,856',Nil) do
begin
Name := 'Area';
Axis := 'a';
end;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
122
|
Access the value-axis giving its name (click to change the value-axis's background)
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
procedure TWinForm1.AxGraph1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxGraph1 do
begin
ValueAxes.Item['a'].ColorChart := TObject(16119285);
Refresh();
end
end;
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxes do
begin
Add('p').Start := TObject(0.25);
with Add('a') do
begin
End := TObject(0.25);
Visible := False;
end;
end;
with CategoryAxis do
begin
Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
MajorGridLines.Color := 'lightgray';
end;
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Axis := 'p';
Type := 'Line';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
with Add('4458,3037,1018,2470,1784,1018,856',Nil) do
begin
Name := 'Area';
Axis := 'a';
end;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
121
|
Specifies the name of the value axis to use
with AxGraph1 do
begin
BeginUpdate();
ValueSize := 18;
with ValueAxes do
begin
with Add('pop-ax') do
begin
Name := 'pop-ax';
Start := TObject(0.25);
Align := EXGRAPHLib.AlignEnum.exAlignLeft;
end;
with Add('area-ax') do
begin
Name := 'area-ax';
End := TObject(0.25);
Visible := False;
ColorChart := TObject(16119285);
end;
end;
with CategoryAxis do
begin
Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
MajorGridLines.Color := 'lightgray';
end;
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Axis := 'pop-ax';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
Vertical := True;
end;
with Add('4458,3037,1018,2470,1784,1018,856',Nil) do
begin
Name := 'Area';
Axis := 'area-ax';
end;
end;
with Legend do
begin
Visible := True;
Dock := EXGRAPHLib.PanelDockEnum.exLeft;
Align := EXGRAPHLib.LegendAlignEnum.exStart;
end;
EndUpdate();
end
|
|
120
|
Remove a value-axis (click to remove the first value-axis)
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
procedure TWinForm1.AxGraph1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxGraph1 do
begin
ValueAxes.Remove(TObject(0));
end
end;
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxes do
begin
Add('p').Start := TObject(0.25);
with Add('a') do
begin
End := TObject(0.25);
Visible := False;
ColorChart := TObject(16119285);
end;
end;
with CategoryAxis do
begin
Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
MajorGridLines.Color := 'lightgray';
end;
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Axis := 'p';
Type := 'Line';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
with Add('4458,3037,1018,2470,1784,1018,856',Nil) do
begin
Name := 'Area';
Axis := 'a';
end;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
119
|
Remove all value-axes (click to clear the value-axes)
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
procedure TWinForm1.AxGraph1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxGraph1 do
begin
ValueAxes.Clear();
end
end;
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxes do
begin
Add('p').Start := TObject(0.25);
with Add('a') do
begin
End := TObject(0.25);
Visible := False;
ColorChart := TObject(16119285);
end;
end;
with CategoryAxis do
begin
Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
MajorGridLines.Color := 'lightgray';
end;
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Axis := 'p';
Type := 'Line';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
with Add('4458,3037,1018,2470,1784,1018,856',Nil) do
begin
Name := 'Area';
Axis := 'a';
end;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
118
|
Adds multiple value-axes
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
with ValueAxes do
begin
Add('p').Start := TObject(0.25);
with Add('a') do
begin
End := TObject(0.25);
Visible := False;
ColorChart := TObject(16119285);
end;
end;
with CategoryAxis do
begin
Categories := 'Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania';
MajorGridLines.Color := 'lightgray';
end;
with Series do
begin
with Add('4600,1300,747,579,0,422,42',Nil) do
begin
Name := 'Population';
Axis := 'p';
Type := 'Line';
Misc[EXGRAPHLib.SerieMiscEnum.exLineSize] := TObject(3);
end;
with Add('4458,3037,1018,2470,1784,1018,856',Nil) do
begin
Name := 'Area';
Axis := 'a';
end;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
117
|
Defines the foreground color to show the visible values within the control's legend
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Background(EXGRAPHLib.BackgroundPartEnum.exLegendLabel,$10000);
set_Background(EXGRAPHLib.BackgroundPartEnum.exLegendSymbol,$10000);
Series.Add('Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)',Nil).Name := 'Area';
with Series.Add('Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)',Nil) do
begin
Name := 'Population';
Visible := False;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
116
|
Defines a different background color to show the visible values within the control's legend
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Background(EXGRAPHLib.BackgroundPartEnum.exLegendUnit,$f0f0f0);
Series.Add('Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)',Nil).Name := 'Area';
with Series.Add('Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)',Nil) do
begin
Name := 'Population';
Visible := False;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
115
|
Defines a different background color to show the hidden values within the control's legend
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Background(EXGRAPHLib.BackgroundPartEnum.exLegendUnitHidden,$f0f0f0);
Series.Add('Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)',Nil).Name := 'Area';
with Series.Add('Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)',Nil) do
begin
Name := 'Population';
Visible := False;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
114
|
Defines the foreground color to show the hidden values within the control's legend
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
set_Background(EXGRAPHLib.BackgroundPartEnum.exLegendLabelHidden,$dcdcdc);
set_Background(EXGRAPHLib.BackgroundPartEnum.exLegendSymbolHidden,$dcdcdc);
Series.Add('Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)',Nil).Name := 'Area';
with Series.Add('Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)',Nil) do
begin
Name := 'Population';
Visible := False;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
113
|
Hides a symbol or item of the legend by code
with AxGraph1 do
begin
BeginUpdate();
AutoFit := True;
Series.Add('Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)',Nil).Name := 'Area';
with Series.Add('Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)',Nil) do
begin
Name := 'Population';
Visible := False;
end;
Legend.Visible := True;
EndUpdate();
end
|
|
112
|
Defines the percentage of transparency for displaying tooltips on series
with AxGraph1 do
begin
BeginUpdate();
set_Background(EXGRAPHLib.BackgroundPartEnum.exSerieCursorTooltipTransparent,$4b);
AutoFit := True;
Series.Add('Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)',Nil);
Series.Add('Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)',Nil);
Cursor.Visible := True;
EndUpdate();
end
|
|
111
|
Defines the percentage of transparency for displaying tooltips on axes
with AxGraph1 do
begin
BeginUpdate();
set_Background(EXGRAPHLib.BackgroundPartEnum.exAxisCursorTooltipTransparent,$4b);
AutoFit := True;
Series.Add('Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)',Nil);
Series.Add('Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)',Nil);
Cursor.Visible := True;
EndUpdate();
end
|
|
110
|
Specifies the percent of transparency to show the overview-selection (0 indicates opaque, 50% indicates semi-transparent, and 100% indicates fully transparent)
with AxGraph1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_Background(EXGRAPHLib.BackgroundPartEnum.exOverviewSelTransparent,$4b);
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt';
with Series.Add(Nil,Nil) do
begin
Name := 'aapl';
Data := 'AAPL (open),AAPL (high),AAPL (low),AAPL (close)';
Type := 'candle';
end;
Overview.Visible := True;
EndUpdate();
end
|
|
109
|
Changes the color to show the overview's selection (EBN color)
with AxGraph1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_Background(EXGRAPHLib.BackgroundPartEnum.exOverviewSel,$1000000);
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt';
with Series.Add(Nil,Nil) do
begin
Name := 'aapl';
Data := 'AAPL (open),AAPL (high),AAPL (low),AAPL (close)';
Type := 'candle';
end;
Overview.Visible := True;
EndUpdate();
end
|
|
108
|
Changes the color to show the overview's selection (solid color)
with AxGraph1 do
begin
BeginUpdate();
set_Background(EXGRAPHLib.BackgroundPartEnum.exOverviewSel,$10000ff);
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt';
with Series.Add(Nil,Nil) do
begin
Name := 'aapl';
Data := 'AAPL (open),AAPL (high),AAPL (low),AAPL (close)';
Type := 'candle';
end;
Overview.Visible := True;
EndUpdate();
end
|
|
107
|
Changes the color to show the overview's selection
with AxGraph1 do
begin
BeginUpdate();
set_Background(EXGRAPHLib.BackgroundPartEnum.exOverviewSel,$ff);
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt';
with Series.Add(Nil,Nil) do
begin
Name := 'aapl';
Data := 'AAPL (open),AAPL (high),AAPL (low),AAPL (close)';
Type := 'candle';
end;
Overview.Visible := True;
EndUpdate();
end
|
|
106
|
Changes the overview's background
with AxGraph1 do
begin
BeginUpdate();
set_Background(EXGRAPHLib.BackgroundPartEnum.exOverviewSelOut,$f0f0f0);
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt';
with Series.Add(Nil,Nil) do
begin
Name := 'aapl';
Data := 'AAPL (open),AAPL (high),AAPL (low),AAPL (close)';
Type := 'candle';
end;
Overview.Visible := True;
EndUpdate();
end
|
|
105
|
Specifies the visual-appearance to display the left/right parts outside of the overview-selection
with AxGraph1 do
begin
BeginUpdate();
set_Background(EXGRAPHLib.BackgroundPartEnum.exOverviewSelOut,$f0f0f0);
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt';
with Series.Add(Nil,Nil) do
begin
Name := 'aapl';
Data := 'AAPL (open),AAPL (high),AAPL (low),AAPL (close)';
Type := 'candle';
end;
Overview.Visible := True;
EndUpdate();
end
|
|
104
|
Adds left/ resize-margins of the overview's selection to resize it (EBN)
with AxGraph1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_Background(EXGRAPHLib.BackgroundPartEnum.exOverviewSelResize,$1000000);
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt';
with Series.Add(Nil,Nil) do
begin
Name := 'aapl';
Data := 'AAPL (open),AAPL (high),AAPL (low),AAPL (close)';
Type := 'candle';
end;
Overview.Visible := True;
EndUpdate();
end
|
|
103
|
Adds left/ resize-margins of the overview's selection to resize it
with AxGraph1 do
begin
BeginUpdate();
set_Background(EXGRAPHLib.BackgroundPartEnum.exOverviewSelResize,$1);
ValueSize := 6;
Data := 'C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt';
with Series.Add(Nil,Nil) do
begin
Name := 'aapl';
Data := 'AAPL (open),AAPL (high),AAPL (low),AAPL (close)';
Type := 'candle';
end;
Overview.Visible := True;
EndUpdate();
end
|
|
102
|
Changes the colors to show the value's tooltip
with AxGraph1 do
begin
BeginUpdate();
set_Background(EXGRAPHLib.BackgroundPartEnum.exToolTipBackColor,$1);
set_Background(EXGRAPHLib.BackgroundPartEnum.exToolTipForeColor,$ffffff);
AutoFit := True;
Series.Add('Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)',Nil).ShowValue := EXGRAPHLib.ShowValueEnum.exPoint;
EndUpdate();
end
|
|
101
|
Changes the visual appearance of the borders of the tooltips
with AxGraph1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_Background(EXGRAPHLib.BackgroundPartEnum.exToolTipAppearance,$1000000);
AutoFit := True;
Series.Add('Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)',Nil).ShowValue := EXGRAPHLib.ShowValueEnum.exPoint;
EndUpdate();
end
|